﻿Public Class Funciones

    Function validarDouble(ByVal Digito As String, ByVal Texto As String) As Boolean
        Dim Dt_Entero As Integer = CInt(Asc(Digito))
        If Dt_Entero = 8 Then
            validarDouble = False
        Else
            If InStr("1234567890,", Digito) = 0 Then
                validarDouble = True
            ElseIf IsNumeric(Texto) = True Then
                validarDouble = False
            ElseIf IsNumeric(Texto) = False Then
                validarDouble = True
            End If
        End If
        Return validarDouble
    End Function

    'ESTE EVENTO SIRVE PARA LLAMAR A LA FUNCION Fg_SoloNumeros SOLO HAY Q CAMBIAR (txt_stock_riesgo POR EL NOMBRE DEL TEXTBOX)
    'Private Sub txt_stock_riesgo_KeyPress(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.KeyPressEventArgs) Handles txt_stock_riesgo.KeyPress
    '    eventArgs.Handled = funciones.validarDouble(eventArgs.KeyChar, txt_stock_riesgo.Text & CChar(eventArgs.KeyChar))
    'End Sub

    Function obtenerCliente(ByVal numero As Integer)
        Dim acceso As New acceso
        Dim cliente As New Cliente
        If numero = Nothing Then
            Dim tabla As Data.DataTable
            tabla = acceso.ejecutar("SELECT * FROM VistaClientes WHERE nroCliente = (SELECT MAX(nroCliente) FROM VistaClientes)")
            cliente._idCliente = tabla.Rows(0).Item(0).ToString()
            cliente._Responsable._nombre = tabla.Rows(0).Item(2).ToString()
            cliente._nombre = tabla.Rows(0).Item(3).ToString()
            cliente._apellido = tabla.Rows(0).Item(4).ToString()
        Else
            Dim tabla As Data.DataTable
            tabla = acceso.ejecutar("SELECT * FROM VistaClientes WHERE nroCliente = " & numero)
            cliente._idCliente = tabla.Rows(0).Item(0).ToString()
            cliente._Responsable._nombre = tabla.Rows(0).Item(2).ToString()
            cliente._nombre = tabla.Rows(0).Item(3).ToString()
            cliente._apellido = tabla.Rows(0).Item(4).ToString()
        End If
        Return cliente
    End Function





End Class
